home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / CLOCK.BAS < prev    next >
BASIC Source File  |  1991-03-28  |  512b  |  30 lines
  1. :'clock.bas by N.Favaro 3/91
  2.  
  3. MODE22
  4.  
  5. "L"
  6. IFINKEY$<>""THEN END=256
  7. A$=TIME$
  8. IF B$=A$THEN"L" ':same time
  9. B$=A$:PRINT@(0,0)B$;
  10.  
  11.  
  12. COLOR 0
  13. CIRCLE 512,383,320 TO S,2
  14. CIRCLE 512,383,300 TO M,4
  15. CIRCLE 512,383,150 TO H,16
  16.  
  17.  
  18. AH$=MID$(A$,1,2):H=VAL(AH$):IFH>12THENH=H-12
  19. H=64- H *64/12 *4-8
  20.  
  21. AM$=MID$(A$,4,2):M=64- VAL(AM$) *64/60*4-2
  22. SS$=MID$(A$,7,2):S=64- VAL(SS$) *64/60*4-1
  23.  
  24. COLOR 15
  25. CIRCLE 512,383,320 TO S,2
  26. CIRCLE 512,383,300 TO M,4
  27. CIRCLE 512,383,150 TO H,16
  28.  
  29. GOTO"L"
  30.